home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / rings_of_zilfin_s1[ssi_1986](alt).d64 / b (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  813b  |  33 lines
  1. 20 ON A GOTO23,24,25,30,40,50,60,65,66,67,68,69,71,72,73,74,75
  2. 22 A=1:GOSUB1000:LOAD"CC",8,1
  3. 23 A=2:LOAD"CS",8,1
  4. 24 A=3:LOAD"CF",8,1
  5. 25 A=4:POKE53265,PEEK(53265)OR16:LOAD"FAST",8,1
  6. 30 A=5: GOSUB600:LOAD"SUB",8,1
  7. 40 A=6:OPEN15,8,15:LOAD"A01",8,1
  8. 50 A=7:POKE53265,PEEK(53265)AND239:PRINT"[147]";:LOAD"SPRFRST",8,1
  9. 60 A=8: LOAD"P99",8,1
  10. 65 A=9: LOAD"SPRITES",8,1
  11. 66 A=10:LOAD"SHPN",8,1
  12. 67 A=11:LOAD"FR",8,1
  13. 68 A=12:LOAD"SHFONTN",8,1
  14. 69 A=13:LOAD"FTXT",8,1
  15. 71 A=14:LOAD"ROZ",8,1
  16. 72 A=15:LOAD"M",8,1
  17. 73 A=16:LOAD"SOUNDS",8,1
  18. 74 A=17:LOAD"AUX",8,1
  19. 75 POKE 2182,0: SYS 49185
  20. 600 OPEN1,8,15:PRINT#1,"UJ":FORI=1TO2000:NEXT:I$=""
  21. 602 GET#1,A$:I$=I$+A$:IFST<>64THEN602
  22. 604 CLOSE1:IFLEFT$(I$,26)<>"73,CBM DOS V2.6 1541,00,00"THEN POKE44288,96
  23. 605 RETURN
  24. 1000 POKE53280,0:POKE53281,0:POKE38448,96
  25. 1010 PRINT"[147]";:POKE53272,(PEEK(53272)AND240)OR8
  26. 1020 POKE781,23:POKE782,0:SYS65520
  27. 1025 POKE53270,PEEK(53270)OR16:PRINT"[159]";
  28. 1026 FORI=65530 TO 65535
  29. 1027 POKE I,PEEK(I)
  30. 1028 NEXT
  31. 1029 POKE 65091,64
  32. 1030 RETURN
  33.